home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / parallax / more_exa.tar / more / X / xprim.p < prev    next >
Text File  |  1992-11-11  |  632b  |  30 lines

  1. SYSTEM sieve;
  2. (* X window visualization of prime sieve | Braunl 1992 *)
  3. CONST n=1000;
  4. CONFIGURATION list [2..n];
  5. CONNECTION  (* none *);
  6.  
  7. SCALAR  prime, step, win: INTEGER;
  8.         ch              : CHAR;
  9. VECTOR  removed         : BOOLEAN;
  10.  
  11. BEGIN
  12.   win  := OpenAbswindow(n, n DIV 3); 
  13.   SetColor(COLOR(0,0,0)); (* black *)
  14.   step := 0;
  15.  
  16.   PARALLEL
  17.     REPEAT
  18.       prime:= REDUCE.FIRST(DIM1);
  19.       removed := DIM1 MOD prime = 0; (* remove multiples *)
  20.       inc(step);
  21.       SetPixel(DIM1, step);
  22.     UNTIL removed
  23.   ENDPARALLEL;
  24.  
  25.   WriteString("Press RETURN for termination"); WriteLn;
  26.   Read(ch);
  27.   CloseWindow(win);
  28. END sieve.
  29.  
  30.